Chip 2004 March/Chip_2004-03_cd1.bin/software/purge/PURG504.EXE/{app}/PURGEIE.EXE/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 2004-01-01 | 23KB | 767 lines

object MainForm: TMainForm
  Left = 411
  Top = 109
  Width = 610
  Height = 430
  HelpContext = 200
  Caption = 'PurgeIE - Purge Cache, Cookies and Tracks for Internet Explorer'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyUp = FormKeyUp
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 385
    Width = 602
    Height = 18
    Align = alBottom
    TabOrder = 0
    OnClick = RegLabelClick
    object RegLabel: TLabel
      Left = 210
      Top = 2
      Width = 5
      Height = 13
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ShowAccelChar = False
      OnClick = RegLabelClick
    end
    object PanelGauge: TPanel
      Left = 1
      Top = 2
      Width = 200
      Height = 14
      TabOrder = 0
      object LabGauge: TLabel
        Left = 0
        Top = 1
        Width = 100
        Height = 13
        AutoSize = False
        Color = clHighlight
        ParentColor = False
      end
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 602
    Height = 196
    HelpContext = 200
    Align = alTop
    TabOrder = 1
    object ProtectSBtn: TSpeedButton
      Left = 95
      Top = 6
      Width = 74
      Height = 25
      Hint =
        'View Cookies, Setup / Maintain a list of '#39'Protected'#39' Cookies, et' +
        'c...'
      Caption = 'Protect'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        777700000000000007770FFFFFFFFFFF07770F4F444444FF07770FFFFFFF0FFF
        07770F4F444400FF07770FFFFFFF000F07770F4F4444000007770FFFFFFF0FB0
        07770F4F444400FB07770FFFFFFFF0BF07770F4F4444400BF0770FFFFFFFFF0F
        B0770FFFFFFFFFF0090700000000000019077777777777770077}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = ProtectSBtnClick
    end
    object ExitSBtn: TSpeedButton
      Left = 520
      Top = 6
      Width = 74
      Height = 25
      Hint = 'Terminate Execution'
      Caption = 'Exit'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777770007777777777700050777777777000555077777777705555500077
        7777705555508077777770555F80F077777770555550F077757770555550F077
        557770555550F075555570555550F077557770555500F0777577705500FFF077
        77777000FFFFF077777770000000007777777777777777777777}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = ExitSBtnClick
    end
    object PreviewSbtn: TSpeedButton
      Left = 180
      Top = 6
      Width = 74
      Height = 25
      Hint =
        'Execute the Purge Function for the Selected Options without actu' +
        'ally deleting data'
      Caption = 'Preview'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        777700000000000077000FFFFFFFFFF070000FFFFFFF000080070FFFFFF08778
        08770FFFFF0877E880770FFFFF07777870770FFFFF07E77870770FFFFF08EE78
        80770FFFFFF0877807770FFFFFFF000077770FFFFFFFFFF077770FFFFFFF0000
        77770FFFFFFF070777770FFFFFFF007777770000000007777777}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = PreviewSbtnClick
    end
    object StatsSBtn: TSpeedButton
      Left = 10
      Top = 6
      Width = 74
      Height = 25
      Hint = 'List Statistics for Cache and Cookie Disk Space Usage'
      Caption = 'Statistics'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777770000000000000770FFFFFFFFFFFFF070F0000000000
        0F070FFFFFFFFFFFFF070F00000000000F070FFFFFFFFFFFFF070F0000000000
        0F070FFFFFFFFFFFFF070F00000000000F070FFFFFFFFFFFFF070F0000000000
        0F070FFFFFFFFFFFFF0770000000000000777777777777777777}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = StatsSBtnClick
    end
    object ConfigSBtn: TSpeedButton
      Left = 350
      Top = 6
      Width = 74
      Height = 25
      Hint =
        'Select Options for Startup Execution and for '#39'Purge NOW'#39' Shortcu' +
        't'
      Caption = 'Configure'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00108888888888
        8888B1088888888888883B1088888888888813B1088888888888813B10888888
        88888813B1088888888888813B1088880088888813B1088077088888813B1080
        8F7088888813B1077880888888813078800888888888078F80888888888808FF
        7088888800007FF7088888888078FF7088888888880000088888}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = ConfigSBtnClick
    end
    object PurgeAllSBtn: TSpeedButton
      Left = 265
      Top = 6
      Width = 74
      Height = 25
      Hint = 'Execute the Purge Function for the Selected Options'
      Caption = 'Purge'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777000000000
        0777770F80F807808077770F80F807808077770F80F807808077770F80F80780
        8077770F80F807808077770F80F807808077770F80F807808077770F80F80780
        8077770F80F807808077770F80F8078080777000000000000007708888888888
        880770FFFF777777770777000000000000777777770000777777}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = PurgeAllSBtnClick
    end
    object GroupBox1: TGroupBox
      Left = 2
      Top = 32
      Width = 598
      Height = 160
      Caption = 'Purge Options'
      TabOrder = 0
      object Label1: TLabel
        Left = 160
        Top = 18
        Width = 24
        Height = 13
        Caption = 'Days'
      end
      object Label2: TLabel
        Left = 160
        Top = 48
        Width = 24
        Height = 13
        Caption = 'Days'
      end
      object Label3: TLabel
        Left = 220
        Top = 18
        Width = 28
        Height = 13
        Caption = 'Hours'
      end
      object Label4: TLabel
        Left = 220
        Top = 48
        Width = 28
        Height = 13
        Caption = 'Hours'
      end
      object Label5: TLabel
        Left = 284
        Top = 18
        Width = 112
        Height = 13
        Caption = 'Mins - since last access'
      end
      object Label6: TLabel
        Left = 284
        Top = 48
        Width = 112
        Height = 13
        Caption = 'Mins - since last access'
      end
      object Label7: TLabel
        Left = 96
        Top = 16
        Width = 27
        Height = 13
        Caption = '- over'
      end
      object Label8: TLabel
        Left = 96
        Top = 46
        Width = 27
        Height = 13
        Caption = '- over'
      end
      object SaveOptionsSBtn: TSpeedButton
        Left = 448
        Top = 12
        Width = 140
        Height = 24
        Hint = 'Save the Purge and Reports Options for next Execution'
        Caption = 'Save Purge Options'
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777770000000000000770330000007703077033000000770307703300000077
          0307703300000000030770333333333333077033000000003307703077777777
          0307703077777777030770307777777703077030777777770307703077777777
          0007703077777777070770000000000000077777777777777777}
        ParentShowHint = False
        ShowHint = True
        OnClick = SaveOptionsSBtnClick
      end
      object IEcaution: TLabel
        Left = 448
        Top = 52
        Width = 140
        Height = 40
        AutoSize = False
        Caption =
          'Internet Explorer is active.   The functions indicated in Yellow' +
          ' may not be effective.'
        Color = clYellow
        ParentColor = False
        Visible = False
        WordWrap = True
      end
      object CancelSbtn: TSpeedButton
        Left = 468
        Top = 20
        Width = 120
        Height = 24
        Hint = 'Cancel / Stop processing'
        Caption = '  Cancel / Stop'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000010000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
          33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
          993337777F777F3377F3393999707333993337F77737333337FF993399933333
          399377F3777FF333377F993339903333399377F33737FF33377F993333707333
          399377F333377FF3377F993333101933399377F333777FFF377F993333000993
          399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
          99333773FF777F777733339993707339933333773FF7FFF77333333999999999
          3333333777333777333333333999993333333333377777333333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        Visible = False
        OnClick = CancelSbtnClick
      end
      object CheckBoxNormalCache: TCheckBox
        Left = 8
        Top = 16
        Width = 86
        Height = 17
        Hint =
          'Purge Online (Standard / Non-Subscription) Cache over specified ' +
          'time since last access'
        Caption = 'Online Cache'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object CheckBoxSubscriptionCache: TCheckBox
        Left = 8
        Top = 46
        Width = 86
        Height = 17
        Hint =
          'Purge Offline (Subscription) Cache over specified time since las' +
          't access'
        Caption = 'Offline Cache'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object NsDD: TEdit
        Left = 128
        Top = 14
        Width = 28
        Height = 21
        TabOrder = 10
        Text = '0'
      end
      object NsHH: TEdit
        Left = 188
        Top = 14
        Width = 28
        Height = 21
        TabOrder = 11
        Text = '0'
      end
      object NsMM: TEdit
        Left = 252
        Top = 14
        Width = 28
        Height = 21
        TabOrder = 12
        Text = '0'
      end
      object SbDD: TEdit
        Left = 128
        Top = 44
        Width = 28
        Height = 21
        TabOrder = 13
        Text = '0'
      end
      object SbHH: TEdit
        Left = 188
        Top = 44
        Width = 28
        Height = 21
        TabOrder = 14
        Text = '0'
      end
      object SbMM: TEdit
        Left = 252
        Top = 44
        Width = 28
        Height = 21
        TabOrder = 15
        Text = '0'
      end
      object CheckBoxHistory: TCheckBox
        Left = 306
        Top = 78
        Width = 89
        Height = 17
        Hint =
          'Purge Internet History Folders.  (Internet Explorer must not be ' +
          'active for deletion of these directories)'
        Caption = 'History Folders'
        Color = clBtnFace
        ParentColor = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        OnClick = Timer1Timer
      end
      object CheckBoxURLs: TCheckBox
        Left = 220
        Top = 78
        Width = 82
        Height = 17
        Hint = 'Purge Typed URLs (Address Dropdown List) from Registry'
        Caption = 'Typed URLs'
        Color = clBtnFace
        ParentColor = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnClick = Timer1Timer
      end
      object CheckBoxRecent: TCheckBox
        Left = 8
        Top = 102
        Width = 84
        Height = 17
        Hint = 'Purge Links for Recent Files (Documents)'
        Caption = 'Recent LNKs'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
      end
      object CheckBoxCookies: TCheckBox
        Left = 8
        Top = 78
        Width = 121
        Height = 17
        Hint = 'Purge '#39'UnProtected'#39' Cookies'
        Caption = 'Unprotected Cookies'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object CheckBoxVisited: TCheckBox
        Left = 134
        Top = 78
        Width = 83
        Height = 17
        Hint = 'Purge '#39'Visited'#39' URLs. These are used for AutoComplete'
        Caption = 'Visited URLs'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
      object CheckBoxStrays: TCheckBox
        Left = 134
        Top = 102
        Width = 50
        Height = 17
        Hint = 'Purge Stray Cache and Cookie Files (files not in INDEX.DAT)'
        Caption = 'Strays'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
      end
      object ReportsRG1: TRadioGroup
        Left = 448
        Top = 124
        Width = 140
        Height = 32
        Hint = 'Select Detail or Summary Reports'
        Caption = 'Reports'
        Columns = 2
        ItemIndex = 1
        Items.Strings = (
          'Detail'
          'Summary')
        ParentShowHint = False
        ShowHint = True
        TabOrder = 9
      end
      object CheckBoxTemp: TCheckBox
        Left = 220
        Top = 102
        Width = 82
        Height = 17
        Hint =
          'Purge all Files in the Windows Temp Folder - CAUTION - see note ' +
          'in Help file'
        Caption = 'Temp Folder'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 8
      end
      object GroupBox2: TGroupBox
        Left = 2
        Top = 124
        Width = 430
        Height = 32
        Hint = 'Options in this block require IE-5, or higher'
        Caption = 'IE-5 or IE-6'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 16
        object CheckBoxClearPreviousSearches: TCheckBox
          Left = 6
          Top = 12
          Width = 145
          Height = 17
          Hint = 'Clear Previous Search data for IE-5, or higher'
          Caption = 'Clear Previous Searches'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
        end
        object CheckBoxClearAutoCompleteForms: TCheckBox
          Left = 150
          Top = 12
          Width = 180
          Height = 17
          Hint = 'Clear AutoComplete Forms via I.E. for IE-5, or higher'
          Caption = 'Clear AutoComplete Forms via I.E.'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
        end
        object CheckBoxUserData: TCheckBox
          Left = 340
          Top = 12
          Width = 72
          Height = 17
          Hint = 'Clear the IE UserData folder data for IE-5, or higher'
          Caption = 'UserData'
          Enabled = False
          TabOrder = 2
        end
      end
      object RecyclePanel: TPanel
        Left = 304
        Top = 101
        Width = 80
        Height = 19
        Hint =
          'Empty Recycle Bin Option is only available on Newer Systems - Se' +
          'e Help'
        BevelOuter = bvNone
        ParentShowHint = False
        ShowHint = True
        TabOrder = 17
        object CheckBoxReCycle: TCheckBox
          Left = 2
          Top = 1
          Width = 78
          Height = 17
          Hint = 'Empty Recycle Bin'
          Caption = 'Recycle Bin'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
        end
      end
      object LineHoriz1: TPanel
        Left = 0
        Top = 39
        Width = 420
        Height = 2
        TabOrder = 18
      end
      object LineHoriz2: TPanel
        Left = 0
        Top = 70
        Width = 420
        Height = 2
        TabOrder = 19
      end
      object LineVert1: TPanel
        Left = 418
        Top = 6
        Width = 2
        Height = 66
        TabOrder = 20
      end
      object AllOnBtn: TButton
        Left = 448
        Top = 100
        Width = 66
        Height = 22
        Hint = 'Click to set all Options '#39'On'#39
        Caption = 'Set All '#39'On'#39
        ParentShowHint = False
        ShowHint = True
        TabOrder = 21
        OnClick = AllOnBtnClick
      end
      object AllOffBtn: TButton
        Left = 520
        Top = 100
        Width = 66
        Height = 22
        Hint = 'Click to set all Options '#39'Off'#39
        Caption = 'Set All '#39'Off'#39
        ParentShowHint = False
        ShowHint = True
        TabOrder = 22
        OnClick = AllOffBtnClick
      end
    end
    object HelpSbitbtn: TBitBtn
      Left = 435
      Top = 6
      Width = 74
      Height = 25
      Hint = 'Access Help File, Registration, About Box'
      Caption = 'Help'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      PopupMenu = PopupHelp1
      ShowHint = True
      TabOrder = 1
      OnMouseDown = HelpSbtnMouseDown
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777700077
        777777777005580777777770055FF780777770055FF007780777855FF0055077
        807785F00555550778078005553B55507780855555535555070775F55555BB55
        5007775F555553BB55077775F55535BB555077775F55BBB55500777775F55555
        00777777775F5500777777777775507777777777777777777777}
    end
  end
  object ListView0: TListView
    Left = 0
    Top = 196
    Width = 602
    Height = 189
    Align = alClient
    Columns = <
      item
        Width = 6
        WidthType = (
          -1)
      end>
    ReadOnly = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    ShowColumnHeaders = False
    TabOrder = 2
    ViewStyle = vsReport
  end
  object CopyMemo1: TMemo
    Left = 520
    Top = 384
    Width = 73
    Height = 33
    Lines.Strings = (
      'CopyMemo1')
    ReadOnly = True
    TabOrder = 3
    Visible = False
    WordWrap = False
  end
  object PopupHelp1: TPopupMenu
    AutoPopup = False
    Left = 311
    Top = 66
    object PuHelp: TMenuItem
      Caption = 'Help File Contents'
      Default = True
      Hint = 'This passes control to the Help file.'
      OnClick = PuHelpClick
    end
    object puDispDirs: TMenuItem
      Caption = 'Display Directories'
      Hint = 'Display Directories on this computer for Cache, Cookies, etc'
      OnClick = puDispDirsClick
    end
    object puWebPage: TMenuItem
      Caption = 'Vendor Web Page'
      Hint =
        'This passes control to the Vendor'#39's Web Page.  Your Internet con' +
        'nection must be available.'
      OnClick = puWebPageClick
    end
    object puRegistration: TMenuItem
      Caption = 'Purchase License - Register'
      Hint = 'Pass control to the Registration Window.'
      OnClick = puRegistrationClick
    end
    object puCheckforNewerVersion: TMenuItem
      Caption = 'Check for Newer Version'
      OnClick = puCheckforNewerVersionClick
    end
    object puPurgInx: TMenuItem
      Caption = 'Purge I.E. Folders at next Reboot'
      Hint = 'Creates a RunOnce file to Purge I.E. Folders at next Reboot'
      OnClick = puPurgInxClick
    end
    object puCopyClipboard: TMenuItem
      Caption = 'Copy Display to ClipBoard'
      Hint = 'Copy Display List to Windows ClipBoard'
      OnClick = puCopyClipboardClick
    end
    object PuAbout: TMenuItem
      Caption = 'About PurgeIE'
      Hint = 'Passes control to the About Window.'
      OnClick = PuAboutClick
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 2500
    OnTimer = Timer1Timer
    Left = 354
    Top = 64
  end
end